| Tab method |
Applies to
TGUITestCase
Declaration
Procedure Tab(n :Integer =1);Implementation
procedure TGUITestCase.Tab(n: Integer);
var
i :Integer;
s :TShiftState;
begin
Assert(GUI <> nil, 'GUI variable not set');
s := [];
if n < 0 then
begin
s := [ssShift];
n := -n;
end;
for i := 1 to n do
EnterKey(VK_TAB);
Application.ProcessMessages;
Sleep(ActionDelay);
End; |
|
|